Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

    With ListView1
        .SortKey = ColumnHeader.Index - 1
        .SortOrder = IIf(.SortOrder=lvwAscending, lvwDescending, lvwAscending)
        .Sorted = True
    End With
    
End Sub